iT邦幫忙

2019 iT 邦幫忙鐵人賽

1
自我挑戰組

程式設計師大冒險系列 第 72

[72/150]CPE一星題庫(五)程式擴充性重要

  • 分享至 

  • xImage
  •  

整理資料庫,剛好用到之前JSON製作程式。稍微改一點就能拿來用了,不用再重寫。

【大綱】

  • 資料庫整理心得
  • 程式碼
  • 總結

【資料庫整理心得】

向右增加二欄,之後再整理到專案裡面。
https://ithelp.ithome.com.tw/upload/images/20181211/200919108uYFJi6UKX.jpg

變動的地方要從字裡行間去找,雖然有註解做輔助還是很慢。
給別人程式碼,要改的地方我會放在開頭,但是自己用的就沒有。
以後要注意這點,這樣擴充程式會比較方便。

【程式碼】

這裡只要改三個地方就能用,不過還可以更好。
比方說欄位名稱,可以抓第一列的值,就不用手打。

Sub all()
    '宣告
        Dim quetri As Variant
        Dim json As String
        'quetri是全部name值'這裡新增二欄名稱"link", "how"
        quetri = Array("name", "number", "ifsolve", "link", "how")
        
        'Chr(34) = ",因為"是保留字,所以要用Chr(34) 代替
        For Each ci In Range("B2", "F8")'範圍改成五欄
            
            If (ci.Column() = 2) Then
                json = json + "{"
            End If
            
            json = json & Chr(34) + quetri(ci.Column() - 2) & Chr(34) & ":"
            json = json & Chr(34) & ci.Value & Chr(34)
            
            If (ci.Column() = 6) Then'最後一欄改成表格第五欄
                json = json + "}"
            End If
            
            json = json + ","
        Next ci
        
        '除錯用
            Debug.Print (json)
    
End Sub

【總結】

有機會想研究,寫程式標準文件。
空格、括號位置等等,以後看自己程式碼才不會太吃力。
感謝撥冗閱讀。


上一篇
[71/150]第十一週學習總結,CPE一星題庫報告(一)
下一篇
[73/150]CPE一星題庫(六)JSON好站介紹
系列文
程式設計師大冒險115
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

尚未有邦友留言

立即登入留言